home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk Supreme
/
Softdisk Supreme.iso
/
pc
/
DSK Files
/
0-49
/
SD017a.dsk
/
PAL.99352.GRIFFIN.MAR.83.A.bas
< prev
next >
Wrap
BASIC Source File
|
2003-06-12
|
2KB
|
50 lines
1 TEXT : SPEED= 255: HOME : VTAB 6: HTAB 10
2 PRINT "A NOTE FROM SOFTY"
3 VTAB 10: PRINT "YOU NEED AN APPLE IIE TO READ THE": PRINT : PRINT "LOWER CASE IN THIS ONE."
4 VTAB 14: PRINT "SOFTDISK DOESN'T HAVE ONE YET."
5 VTAB 18: HTAB 10: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET A$: PRINT A$
10 HOME
15 PRINT "************************"
17 PRINT "* APPLE //e SOFTSWITCH *"
21 PRINT "************************"
100 PRINT
110 PRINT " MOST OF THE APPLE ][+ SOFTWARE "
120 PRINT "WILL BOOT AND RUN ON THE APPLE //e"
130 PRINT "BUT SOMETIMES TEXT IS DISPLAYED IN"
140 PRINT "80 COLUMN FORMAT WITH A LETTER EVERY"
150 PRINT "OTHER SPACE."
160 PRINT : PRINT " DO THE FOLLOWING TO DISABLE THE"
170 PRINT "80 COLUMN CARD AND TO RESTORE THE"
180 PRINT "FORMAT TO 40 COLUMNS:"
185 PRINT
190 PRINT "(1) WITH AN EMPTY DISK DRIVE"
200 PRINT " (Ctrl)-(Open Apple)-(Reset)"
210 PRINT "(2) (Ctrl)-(Reset) to stop the drive"
220 PRINT "(3) POKE -16373,0"
230 PRINT "(4) Place program in disk drive and "
240 PRINT " boot it with PR#6"
250 PRINT : PRINT " (PRESS ANY KEY)"
300 GET A$
320 PRINT : PRINT " The major programs I have found"
330 PRINT "this to work with are PFS-FILE and"
340 PRINT "REPORT, VISICALC //e, and WIZARDRY."
350 PRINT : PRINT " The procedure is essential for the"
360 PRINT "readability of the PFS programs on the"
370 PRINT "Apple //e, and it gets WIZARDRY back to"
380 PRINT "the Apple ][+ text format."
390 PRINT : PRINT " As for VISICALC //e, the procedure"
400 PRINT "results in a worksheet in 40 columns"
410 PRINT "that otherwise has the Apple //e"
420 PRINT "keyboard functions. It's nice if you"
430 PRINT "have bad eyesight, or otherwise long"
440 PRINT "for the old 40 column format."
442 PRINT
450 PRINT "(Note: You will also disable the "
460 PRINT "extended memory by this procedure,"
470 PRINT "thereby limiting yourself to 64K, or"
480 PRINT "a 32K worksheet in VISICALC.)"
485 PRINT : PRINT " (TO GO TO MENU, PRESS ANY KEY)"
487 GET B$
490 D$ = CHR$(4)
492 I$ = CHR$(9)
500 PRINT I$;D$;"RUN PAL.MENU"